/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Environments / AAISProlog / Examples / search files.p

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 73 65 61 72 63 68 | 20 66 69 6c 65 73 2e 70 |..search| files.p|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 49 46 | 43 01 00 00 00 00 00 00 |.TEXTAIF|C.......|
|00000050| 00 00 00 00 00 08 5a 00 | 00 01 7c a6 06 bd 7c a6 |......Z.|..|...|.|
|00000060| 06 bd 7c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..|.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 af f5 00 00 |........|........|
|00000080| 2f 2a 0d a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |/*......|........|
|00000090| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000000a0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000000b0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000000c0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 0d |........|........|
|000000d0| 53 65 61 72 63 68 20 66 | 69 6c 65 73 2e 70 3a 20 |Search f|iles.p: |
|000000e0| 53 65 61 72 63 68 20 66 | 6f 72 20 74 65 78 74 20 |Search f|or text |
|000000f0| 69 6e 20 66 69 6c 65 73 | 2e 0d 0d 43 6f 70 79 72 |in files|...Copyr|
|00000100| 69 67 68 74 2c 20 a9 20 | 31 39 39 32 20 41 64 76 |ight, . |1992 Adv|
|00000110| 61 6e 63 65 64 20 41 2e | 20 49 2e 20 53 79 73 74 |anced A.| I. Syst|
|00000120| 65 6d 73 2c 20 49 6e 63 | 2e 0d 41 6c 6c 20 72 69 |ems, Inc|..All ri|
|00000130| 67 68 74 73 20 72 65 73 | 65 72 76 65 64 2e 0d 54 |ghts res|erved..T|
|00000140| 68 69 73 20 66 69 6c 65 | 20 6d 61 79 20 6e 6f 74 |his file| may not|
|00000150| 20 62 65 20 63 6f 70 69 | 65 64 20 6f 72 20 64 69 | be copi|ed or di|
|00000160| 73 74 72 69 62 75 74 65 | 64 20 77 69 74 68 6f 75 |stribute|d withou|
|00000170| 74 20 74 68 65 20 0d 77 | 72 69 74 74 65 6e 20 70 |t the .w|ritten p|
|00000180| 65 72 6d 69 73 73 69 6f | 6e 20 6f 66 20 41 64 76 |ermissio|n of Adv|
|00000190| 61 6e 63 65 64 20 41 2e | 20 49 2e 20 53 79 73 74 |anced A.| I. Syst|
|000001a0| 65 6d 73 2c 20 49 6e 63 | 2e 0d a5 a5 a5 a5 a5 a5 |ems, Inc|........|
|000001b0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000001c0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000001d0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000001e0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000001f0| a5 a5 a5 a5 a5 a5 0d 54 | 68 69 73 20 65 78 61 6d |.......T|his exam|
|00000200| 70 6c 65 20 70 72 6f 76 | 69 64 65 73 20 61 20 73 |ple prov|ides a s|
|00000210| 65 74 20 6f 66 20 66 75 | 6e 63 74 69 6f 6e 73 20 |et of fu|nctions |
|00000220| 74 68 61 74 20 61 6c 6c | 6f 77 20 74 68 65 20 73 |that all|ow the s|
|00000230| 65 61 72 63 68 69 6e 67 | 20 0d 6f 66 20 74 65 78 |earching| .of tex|
|00000240| 74 20 74 68 72 6f 75 67 | 68 20 6d 61 6e 79 20 66 |t throug|h many f|
|00000250| 69 6c 65 73 20 74 68 72 | 6f 75 67 68 6f 75 74 20 |iles thr|oughout |
|00000260| 61 20 66 6f 6c 64 65 72 | 20 61 74 20 6f 6e 63 65 |a folder| at once|
|00000270| 2e 0d 0d 54 68 69 73 20 | 65 78 61 6d 70 6c 65 20 |...This |example |
|00000280| 70 72 6f 67 72 61 6d 20 | 61 6c 6c 6f 77 73 20 79 |program |allows y|
|00000290| 6f 75 20 74 6f 20 73 65 | 61 72 63 68 0d 74 68 72 |ou to se|arch.thr|
|000002a0| 6f 75 67 68 20 74 65 78 | 74 20 66 69 6c 65 73 20 |ough tex|t files |
|000002b0| 69 6e 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 64 |in the c|urrent d|
|000002c0| 69 72 65 63 74 6f 72 79 | 20 66 6f 72 20 61 20 73 |irectory| for a s|
|000002d0| 70 65 63 69 66 69 65 64 | 20 73 74 72 69 6e 67 2e |pecified| string.|
|000002e0| 20 20 0d 54 68 65 20 73 | 74 72 69 6e 67 20 6d 61 |  .The s|tring ma|
|000002f0| 79 20 63 6f 6e 74 61 69 | 6e 20 72 65 74 75 72 6e |y contai|n return|
|00000300| 20 63 68 61 72 61 63 74 | 65 72 73 2e 0d 0d 54 68 | charact|ers...Th|
|00000310| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 70 72 69 6e |is funct|ion prin|
|00000320| 74 73 20 61 6e 79 20 69 | 6e 66 6f 72 6d 61 74 69 |ts any i|nformati|
|00000330| 6f 6e 20 74 6f 20 74 68 | 65 20 63 75 72 72 65 6e |on to th|e curren|
|00000340| 74 20 6f 75 74 70 75 74 | 2e 0d 49 74 20 73 75 63 |t output|..It suc|
|00000350| 63 65 65 64 73 20 65 76 | 65 6e 20 69 66 20 6e 6f |ceeds ev|en if no|
|00000360| 74 68 69 6e 67 20 69 73 | 20 66 6f 75 6e 64 2e 0d |thing is| found..|
|00000370| 0d 54 6f 20 73 65 61 72 | 63 68 20 61 6c 6c 20 74 |.To sear|ch all t|
|00000380| 65 78 74 20 66 69 6c 65 | 73 20 69 6e 20 74 68 65 |ext file|s in the|
|00000390| 20 63 75 72 72 65 6e 74 | 20 64 69 72 65 63 74 6f | current| directo|
|000003a0| 72 79 3a 0d 0d 3f 2d 20 | 73 65 61 72 63 68 28 22 |ry:..?- |search("|
|000003b0| 22 2c 22 53 65 61 72 63 | 68 20 46 6f 72 20 54 68 |","Searc|h For Th|
|000003c0| 69 73 20 53 74 72 69 6e | 67 22 29 2e 0d 0d 54 6f |is Strin|g")...To|
|000003d0| 20 73 65 61 72 63 68 20 | 61 6c 6c 20 66 69 6c 65 | search |all file|
|000003e0| 73 20 63 6f 6e 74 61 69 | 6e 69 6e 67 20 2e 70 20 |s contai|ning .p |
|000003f0| 69 6e 20 74 68 65 69 72 | 20 6e 61 6d 65 3a 0d 0d |in their| name:..|
|00000400| 3f 2d 20 73 65 61 72 63 | 68 28 22 2e 70 22 2c 22 |?- searc|h(".p","|
|00000410| 53 65 61 72 63 68 20 46 | 6f 72 20 54 68 69 73 20 |Search F|or This |
|00000420| 53 74 72 69 6e 67 22 29 | 2e 0d 0d 54 6f 20 73 65 |String")|...To se|
|00000430| 61 72 63 68 20 61 6c 6c | 20 66 69 6c 65 73 20 77 |arch all| files w|
|00000440| 69 74 68 20 74 68 65 20 | 77 6f 72 64 20 6f 6c 64 |ith the |word old|
|00000450| 20 73 6f 6d 65 77 68 65 | 72 65 20 69 6e 20 69 74 | somewhe|re in it|
|00000460| 73 20 6e 61 6d 65 3a 0d | 0d 3f 2d 20 73 65 61 72 |s name:.|.?- sear|
|00000470| 63 68 28 6f 6c 64 2c 20 | 22 53 65 61 72 63 68 20 |ch(old, |"Search |
|00000480| 46 6f 72 20 54 68 69 73 | 20 53 74 72 69 6e 67 22 |For This| String"|
|00000490| 29 2e 0d 0d 52 65 73 75 | 6c 74 73 20 61 72 65 20 |)...Resu|lts are |
|000004a0| 70 72 69 6e 74 65 64 20 | 69 6e 20 74 68 69 73 20 |printed |in this |
|000004b0| 66 6f 6c 6c 6f 77 69 6e | 67 20 66 6f 72 6d 61 74 |followin|g format|
|000004c0| 3a 0d 3a 2d 20 66 69 6c | 65 20 22 6d 61 69 6e 2e |:.:- fil|e "main.|
|000004d0| 6f 6c 64 2e 70 22 2c 20 | 6c 69 6e 65 20 31 30 33 |old.p", |line 103|
|000004e0| 2e 20 25 20 20 48 65 72 | 65 20 77 65 20 53 65 61 |. %  Her|e we Sea|
|000004f0| 72 63 68 20 46 6f 72 20 | 54 68 69 73 20 53 74 72 |rch For |This Str|
|00000500| 69 6e 67 20 74 68 61 74 | 20 77 65 20 61 72 65 0d |ing that| we are.|
|00000510| 0d 54 68 75 73 2c 20 79 | 6f 75 20 70 6c 61 63 65 |.Thus, y|ou place|
|00000520| 20 74 68 65 20 63 75 72 | 73 6f 72 20 61 6e 79 77 | the cur|sor anyw|
|00000530| 68 65 72 65 20 6f 6e 20 | 74 68 65 20 63 6f 6d 6d |here on |the comm|
|00000540| 61 6e 64 0d 6c 69 6e 65 | 73 20 63 72 65 61 74 65 |and.line|s create|
|00000550| 64 20 69 6e 20 74 68 65 | 20 61 62 6f 76 65 20 66 |d in the| above f|
|00000560| 6f 72 6d 61 74 2c 20 68 | 69 74 20 74 68 65 20 65 |ormat, h|it the e|
|00000570| 6e 74 65 72 0d 6b 65 79 | 20 61 6e 64 20 74 68 61 |nter.key| and tha|
|00000580| 74 20 66 69 6c 65 20 77 | 69 6c 6c 20 62 65 20 70 |t file w|ill be p|
|00000590| 6c 61 63 65 64 20 69 6e | 20 61 6e 20 65 64 69 74 |laced in| an edit|
|000005a0| 20 77 69 6e 64 6f 77 0d | 77 69 74 68 20 69 74 73 | window.|with its|
|000005b0| 20 69 6e 73 65 72 74 69 | 6f 6e 20 70 6f 69 6e 74 | inserti|on point|
|000005c0| 20 73 65 74 20 6f 6e 20 | 74 68 65 20 73 70 65 63 | set on |the spec|
|000005d0| 69 66 69 65 64 20 6c 69 | 6e 65 20 6e 75 6d 62 65 |ified li|ne numbe|
|000005e0| 72 2e 0d 20 2a 2f 0d 20 | 0d 2f 2a 0d 20 2a 20 57 |r.. */. |./*. * W|
|000005f0| 65 20 6d 75 73 74 20 6c | 6f 61 64 20 74 68 69 73 |e must l|oad this|
|00000600| 20 69 6e 20 61 61 69 73 | 20 6d 6f 64 65 2e 0d 20 | in aais| mode.. |
|00000610| 2a 2f 0d 3a 2d 20 61 61 | 69 73 5f 6d 6f 64 65 2e |*/.:- aa|is_mode.|
|00000620| 0d 0d 3a 2d 20 6c 6f 63 | 61 6c 28 73 75 62 73 74 |..:- loc|al(subst|
|00000630| 72 69 6e 67 5f 6e 63 2f | 32 29 2e 0d 0d 2f 2a 0d |ring_nc/|2).../*.|
|00000640| 20 2a 20 46 69 6c 65 20 | 4e 61 6d 65 73 20 6f 6e | * File |Names on|
|00000650| 20 74 68 65 20 4d 61 63 | 69 6e 74 6f 73 68 20 69 | the Mac|intosh i|
|00000660| 67 6e 6f 72 65 20 63 61 | 73 65 20 6f 66 20 6c 65 |gnore ca|se of le|
|00000670| 74 74 65 72 73 2e 0d 20 | 2a 2f 0d 73 75 62 73 74 |tters.. |*/.subst|
|00000680| 72 69 6e 67 5f 6e 63 28 | 22 22 2c 20 5f 29 20 3a |ring_nc(|"", _) :|
|00000690| 2d 20 21 2e 0d 73 75 62 | 73 74 72 69 6e 67 5f 6e |- !..sub|string_n|
|000006a0| 63 28 27 27 2c 20 5f 29 | 20 3a 2d 20 21 2e 0d 73 |c('', _)| :- !..s|
|000006b0| 75 62 73 74 72 69 6e 67 | 5f 6e 63 28 42 2c 20 41 |ubstring|_nc(B, A|
|000006c0| 29 20 3a 2d 0d 09 6e 73 | 74 72 69 6e 67 64 6f 77 |) :-..ns|tringdow|
|000006d0| 6e 63 61 73 65 28 41 29 | 2c 0d 09 73 75 62 73 74 |ncase(A)|,..subst|
|000006e0| 72 69 6e 67 28 41 2c 42 | 2c 5f 2c 5f 29 2c 21 2e |ring(A,B|,_,_),!.|
|000006f0| 0d 0d 73 65 61 72 63 68 | 28 58 46 49 4c 45 5f 4d |..search|(XFILE_M|
|00000700| 41 54 43 48 2c 20 53 54 | 52 49 4e 47 29 20 3a 2d |ATCH, ST|RING) :-|
|00000710| 0d 09 73 74 72 69 6e 67 | 64 6f 77 6e 63 61 73 65 |..string|downcase|
|00000720| 28 58 46 49 4c 45 5f 4d | 41 54 43 48 2c 20 46 49 |(XFILE_M|ATCH, FI|
|00000730| 4c 45 5f 4d 41 54 43 48 | 29 2c 0d 09 65 78 69 73 |LE_MATCH|),..exis|
|00000740| 74 69 6e 67 5f 66 69 6c | 65 28 46 49 4c 45 4e 41 |ting_fil|e(FILENA|
|00000750| 4d 45 2c 20 24 29 2c 0d | 09 66 69 6c 65 5f 74 79 |ME, $),.|.file_ty|
|00000760| 70 65 28 46 49 4c 45 4e | 41 4d 45 2c 60 54 45 58 |pe(FILEN|AME,`TEX|
|00000770| 54 60 2c 5f 29 2c 0d 09 | 73 75 62 73 74 72 69 6e |T`,_),..|substrin|
|00000780| 67 5f 6e 63 28 46 49 4c | 45 5f 4d 41 54 43 48 2c |g_nc(FIL|E_MATCH,|
|00000790| 20 46 49 4c 45 4e 41 4d | 45 29 2c 0d 09 66 6f 70 | FILENAM|E),..fop|
|000007a0| 65 6e 28 46 49 4c 45 4e | 41 4d 45 2c 22 72 22 2c |en(FILEN|AME,"r",|
|000007b0| 53 54 52 45 41 4d 29 2c | 0d 09 28 09 66 69 6e 64 |STREAM),|..(.find|
|000007c0| 5f 73 74 72 69 6e 67 28 | 53 54 52 45 41 4d 2c 53 |_string(|STREAM,S|
|000007d0| 54 52 49 4e 47 2c 5b 5d | 29 2c 0d 09 09 6c 69 6e |TRING,[]|),...lin|
|000007e0| 65 5f 63 6f 75 6e 74 28 | 53 54 52 45 41 4d 2c 4c |e_count(|STREAM,L|
|000007f0| 49 4e 45 4e 55 4d 42 45 | 52 29 2c 0d 09 09 6c 69 |INENUMBE|R),...li|
|00000800| 6e 65 5f 63 68 61 72 5f | 63 6f 75 6e 74 28 53 54 |ne_char_|count(ST|
|00000810| 52 45 41 4d 2c 43 48 41 | 52 29 2c 0d 09 09 58 20 |REAM,CHA|R),...X |
|00000820| 69 73 20 2d 20 43 48 41 | 52 2c 0d 09 09 72 65 6c |is - CHA|R,...rel|
|00000830| 5f 73 65 65 6b 28 53 54 | 52 45 41 4d 2c 58 29 2c |_seek(ST|REAM,X),|
|00000840| 0d 09 09 72 65 61 64 6c | 69 6e 65 28 53 54 52 45 |...readl|ine(STRE|
|00000850| 41 4d 2c 4c 49 4e 45 29 | 2c 0d 09 09 66 6f 72 6d |AM,LINE)|,...form|
|00000860| 61 74 28 22 3a 2d 20 66 | 69 6c 65 20 5c 22 25 73 |at(":- f|ile \"%s|
|00000870| 5c 22 2c 20 6c 69 6e 65 | 20 25 64 2e 20 25 25 20 |\", line| %d. %% |
|00000880| 25 73 5c 6e 22 2c 0d 09 | 09 09 5b 46 49 4c 45 4e |%s\n",..|..[FILEN|
|00000890| 41 4d 45 2c 4c 49 4e 45 | 4e 55 4d 42 45 52 2c 4c |AME,LINE|NUMBER,L|
|000008a0| 49 4e 45 5d 29 2c 0d 09 | 09 66 61 69 6c 0d 09 3b |INE]),..|.fail..;|
|000008b0| 09 66 63 6c 6f 73 65 28 | 53 54 52 45 41 4d 29 2c |.fclose(|STREAM),|
|000008c0| 0d 09 09 66 61 69 6c 0d | 09 29 2e 0d 73 65 61 72 |...fail.|.)..sear|
|000008d0| 63 68 28 5f 2c 20 5f 29 | 2e 0d 00 00 00 00 00 00 |ch(_, _)|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000900| 00 00 01 00 00 00 01 22 | 00 00 00 22 00 00 00 5a |......."|..."...Z|
|00000910| 70 3a 20 44 65 66 69 6e | 69 74 69 6f 6e 73 20 66 |p: Defin|itions f|
|00000920| 6f 72 20 41 41 49 53 20 | 50 72 6f 6c 6f 67 2e 0d |or AAIS |Prolog..|
|00000930| 0e 73 65 61 72 63 68 20 | 66 69 6c 65 73 2e 70 73 |.search |files.ps|
|00000940| 02 00 00 00 54 45 58 54 | 41 49 46 43 01 00 00 50 |....TEXT|AIFC...P|
|00000950| 00 00 54 45 58 54 41 49 | 46 43 01 00 00 50 00 c0 |..TEXTAI|FC...P..|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 a5 7e 1c 5a 00 00 | 08 5a 00 00 01 7c 63 2e |...~.Z..|.Z...|c.|
|00000980| 0d 20 2a 20 41 6c 6c 20 | 72 69 67 68 74 73 20 72 |. * All |rights r|
|00000990| 65 73 65 72 76 65 64 2e | 0d 20 2a 0d 20 2a 20 49 |eserved.|. *. * I|
|000009a0| 6e 73 69 64 65 20 4d 61 | 63 69 6e 74 6f 73 68 0d |nside Ma|cintosh.|
|000009b0| 20 2a 20 56 6f 6c 75 6d | 65 20 35 2c 20 43 68 61 | * Volum|e 5, Cha|
|000009c0| 70 74 65 72 20 31 34 3a | 20 54 65 78 74 45 64 69 |pter 14:| TextEdi|
|000009d0| 74 0d 20 2a 0d 20 2a 20 | 56 6f 6c 75 6d 65 20 35 |t. *. * |Volume 5|
|000009e0| 3a 20 6e 65 65 64 73 20 | 74 65 78 74 65 64 69 74 |: needs |textedit|
|000009f0| 2e 70 0d 20 2a 2f 0d 3a | 2d 20 5b 27 74 65 78 74 |.p. */.:|- ['text|
|00000a00| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 00 00 00 |.......M|onaco...|
|00000a10| 00 08 00 46 00 14 01 4c | 01 f1 00 00 00 04 00 18 |...F...L|........|
|00000a20| 00 04 00 00 01 00 00 00 | 01 22 00 00 00 22 00 00 |........|."..."..|
|00000a30| 00 5a 00 21 54 ac 06 40 | 00 00 00 1c 00 5a 00 02 |.Z.!T..@|.....Z..|
|00000a40| 45 46 4e 54 00 00 00 1a | 45 57 4e 44 00 00 00 26 |EFNT....|EWND...&|
|00000a50| 45 54 41 42 00 00 00 32 | 03 eb ff ff 00 00 00 00 |ETAB...2|........|
|00000a60| 00 21 a2 78 01 00 ff ff | 00 00 00 0e 00 2e 97 90 |.!.x....|........|
|00000a70| 03 ec ff ff 00 00 00 1a | 00 2e 94 e0 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+